home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / flight.arc / ARTGAUGE < prev    next >
Encoding:
Text File  |  1989-09-05  |  384 b   |  25 lines
  1.  
  2. DEF SEG=&HB800
  3. DEFINT A-Z
  4. CLS
  5. SCREEN 1,0
  6. COLOR 0,2
  7. CIRCLE (125,147),22,3,.04,2*PI!
  8. PAINT (125,147),3,3
  9.  
  10. OPEN "O",1,"OUTPUT.LST"
  11.  
  12.   FLG=0
  13.   I=0
  14.   J=0
  15. NXTI:
  16. FOR I=0 TO 319
  17.   IF POINT(I,J)>0 THEN FLG=1: PRINT #1,I;",";J;",";
  18.   IF POINT(I,J)=0 AND FLG=1 THEN FLG=0: GOTO NXTJ
  19. NEXT I
  20. NXTJ:
  21. J=J+1
  22. IF J=200 THEN GOTO ESUB
  23. GOTO NXTI
  24. ESUB: RETURN
  25.